home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Component Software / FileFlex 2.0.3.sit / FileFlex 2.0.3 / FileFlex-XFCN / FileFlex™ Goodies / cards.xml < prev    next >
Text File  |  1994-08-21  |  27KB  |  482 lines
  1. card_5659.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>5659</id>
  6.     <filler1>0</filler1>
  7.     <bitmap>BMAP_6103.pbm</bitmap>
  8.     <cantDelete> <true /> </cantDelete>
  9.     <showPict> <true /> </showPict>
  10.     <dontSearch> <false /> </dontSearch>
  11.     <owner>2719</owner>
  12.     <link rel="stylesheet" type="text/css" href="stylesheet_3300.css" />
  13.     <part>
  14.         <id>1</id>
  15.         <type>field</type>
  16.         <visible> <true /> </visible>
  17.         <dontWrap> <false /> </dontWrap>
  18.         <dontSearch> <false /> </dontSearch>
  19.         <sharedText> <false /> </sharedText>
  20.         <fixedLineHeight> <true /> </fixedLineHeight>
  21.         <autoTab> <false /> </autoTab>
  22.         <lockText> <false /> </lockText>
  23.         <rect>
  24.             <left>18</left>
  25.             <top>61</top>
  26.             <right>422</right>
  27.             <bottom>196</bottom>
  28.         </rect>
  29.         <style>scrolling</style>
  30.         <autoSelect> <false /> </autoSelect>
  31.         <showLines> <false /> </showLines>
  32.         <wideMargins> <false /> </wideMargins>
  33.         <multipleLines> <false /> </multipleLines>
  34.         <reservedFamily> 0 </reservedFamily>
  35.         <titleWidth>0</titleWidth>
  36.         <icon>0</icon>
  37.         <textAlign>left</textAlign>
  38.         <font>Geneva</font>
  39.         <textSize>9</textSize>
  40.         <textStyle>plain</textStyle>
  41.         <textHeight>12</textHeight>
  42.         <name></name>
  43.         <script></script>
  44.     </part>
  45.     <part>
  46.         <id>2</id>
  47.         <type>button</type>
  48.         <visible> <true /> </visible>
  49.         <reserved5> 0 </reserved5>
  50.         <reserved4> 0 </reserved4>
  51.         <reserved3> 0 </reserved3>
  52.         <reserved2> 0 </reserved2>
  53.         <reserved1> 0 </reserved1>
  54.         <enabled> <true /> </enabled>
  55.         <rect>
  56.             <left>109</left>
  57.             <top>203</top>
  58.             <right>321</right>
  59.             <bottom>225</bottom>
  60.         </rect>
  61.         <style>rectangle</style>
  62.         <showName> <true /> </showName>
  63.         <highlight> <false /> </highlight>
  64.         <autoHighlight> <true /> </autoHighlight>
  65.         <sharedHighlight> <true /> </sharedHighlight>
  66.         <family>0</family>
  67.         <titleWidth>0</titleWidth>
  68.         <icon>0</icon>
  69.         <textAlign>center</textAlign>
  70.         <font>Chicago</font>
  71.         <textSize>12</textSize>
  72.         <textStyle>plain</textStyle>
  73.         <name>Try It!</name>
  74.         <script>on mouseUpdbCheckResult -330end mouseUp</script>
  75.     </part>
  76.     <content>
  77.         <layer>card</layer>
  78.         <id>1</id>
  79.         <text><span class="style4">escription</span><span class="style1">FileFlex generates error codes for many of its activities.  Rather than just returning a code,  the function </span><span class="style2">dbErrorString</span><span class="style1"> returns the full text of the error message.  The command </span><span class="style2">dbCheckResult</span><span class="style1"> displays an answer dialog with the appropriate error message if its result parameter is an error.</span><span class="style4">Using dbErrorString</span><span class="style1">Format is: </span><span class="style3">  put dbErrorString(resultCode) into str</span><span class="style1">ResultCode is the code returned by the various FileFlex externals upon completion of execution.</span><span class="style4">Using dbCheckResult</span><span class="style1">Format is:  </span><span class="style3">dbCheckResult resultCode</span><span class="style1"> Normally, FileFlex indicates successful completion by returning a 0 or positive number.  If dbCheckResult is called with a number greater than or equal to zero, nothing happens.  However, if dbCheckResult is called with a number less than zero, it returns an error message and drops out of the currently running script back to HyperCard.</span><span class="style4">Installing dbErrorString and dbCheckResult</span><span class="style1">Both routines are located in the stack script of this stack.  You can copy them to your own stack, to the FileFlex‚Ñ¢ master stack, or (if HyperCard 2.0 or greater) execute a start using command to include this stack in the message heirarchy</span></text>
  80.     </content>
  81.     <name>full text error messages</name>
  82.     <script>on closeCardset scroll of cd field 1 to 1end closeCard</script>
  83. </card>
  84.  
  85.  
  86. card_4749.xml
  87. <?xml version="1.0" encoding="utf-8" ?>
  88. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  89. <card>
  90.     <id>4749</id>
  91.     <filler1>0</filler1>
  92.     <bitmap>BMAP_4942.pbm</bitmap>
  93.     <cantDelete> <true /> </cantDelete>
  94.     <showPict> <true /> </showPict>
  95.     <dontSearch> <false /> </dontSearch>
  96.     <owner>2719</owner>
  97.     <link rel="stylesheet" type="text/css" href="stylesheet_3300.css" />
  98.     <part>
  99.         <id>1</id>
  100.         <type>field</type>
  101.         <visible> <true /> </visible>
  102.         <dontWrap> <false /> </dontWrap>
  103.         <dontSearch> <false /> </dontSearch>
  104.         <sharedText> <false /> </sharedText>
  105.         <fixedLineHeight> <true /> </fixedLineHeight>
  106.         <autoTab> <false /> </autoTab>
  107.         <lockText> <false /> </lockText>
  108.         <rect>
  109.             <left>18</left>
  110.             <top>61</top>
  111.             <right>422</right>
  112.             <bottom>196</bottom>
  113.         </rect>
  114.         <style>scrolling</style>
  115.         <autoSelect> <false /> </autoSelect>
  116.         <showLines> <false /> </showLines>
  117.         <wideMargins> <false /> </wideMargins>
  118.         <multipleLines> <false /> </multipleLines>
  119.         <reservedFamily> 0 </reservedFamily>
  120.         <titleWidth>0</titleWidth>
  121.         <icon>0</icon>
  122.         <textAlign>left</textAlign>
  123.         <font>Geneva</font>
  124.         <textSize>9</textSize>
  125.         <textStyle>plain</textStyle>
  126.         <textHeight>12</textHeight>
  127.         <name></name>
  128.         <script></script>
  129.     </part>
  130.     <content>
  131.         <layer>card</layer>
  132.         <id>1</id>
  133.         <text><span class="style4">escription</span><span class="style1">Automatic data entry validation XFCN that prevents user from entering invalid data into a FileFlex database field.</span><span class="style4">About SmartFields</span><span class="style1"></span><span class="style2">SmartFields</span><span class="style1"> is an XFCN that is called for every </span><span class="style2">keyDown</span><span class="style1"> event occuring in the data card.  When a key is pressed, that keypress is sent to </span><span class="style2">SmartFields</span><span class="style1">, which determines if the keypress occured inside a card or background field corresponding to a field in the currently active FileFlex database.  It then dynamically validates user input so that no invalid data is entered.  For example, if the entry field is a character field of length 20, </span><span class="style2">SmartFields</span><span class="style1"> will prevent the user from typing in the 21st character and will beep.If the field is defined as numeric or date, </span><span class="style2">SmartFields</span><span class="style1"> will prevent any characters other than "0123456789." from being entered.If the field is logical, </span><span class="style2">SmartFields</span><span class="style1"> will only allow "tTfF" to be entered.</span><span class="style4">Installing SmartFields</span><span class="style1">Because </span><span class="style2">SmartFields</span><span class="style1"> lives in the </span><span class="style2">keyDown</span><span class="style1"> handler, it is only compatible with HyperCard 2.0 or greater.  We've installed the XFCN into this stack and you'll either have to move it into your own stack or issue a </span><span class="style2">start using</span><span class="style1"> command.</span><span class="style4">Programming for SmartFields</span><span class="style2">SmartFields</span><span class="style1"> also relies on data from the current database structure, returned using the </span><span class="style2">dbListFields()</span><span class="style1"> call in FileFlex.  Rather than getting the structure for every keypress, we recommend retrieving it when the user clicks in the field for the first time.  Put this handler in your card script:</span><span class="style3">on openField  global dbSMARTFIELDS  put dbListFields() into dbSMARTFIELDS  pass openFieldend openField</span><span class="style1">The </span><span class="style2">keyDown</span><span class="style1"> handler will rely on the global dbSMARTFIELDS as being active when it's ready to call the </span><span class="style2">SmartFields</span><span class="style1"> XFCN.  Here's the </span><span class="style2">keyDown</span><span class="style1"> handler as it should be written with </span><span class="style2">SmartFields</span><span class="style1"> installed:</span><span class="style3">on keyDown x  global dbSMARTFIELDS  if smartFields(x,dbSMARTFIELDS,the target) is true then    pass keyDown  end ifend keyDown</span><span class="style1">Notice that the keyDown message is only passed if SmartFields decided that the data was a valid entry for the field.</span></text>
  134.     </content>
  135.     <name>smart fields</name>
  136.     <script>on closeCardset scroll of cd field 1 to 1end closeCard</script>
  137. </card>
  138.  
  139.  
  140. card_6372.xml
  141. <?xml version="1.0" encoding="utf-8" ?>
  142. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  143. <card>
  144.     <id>6372</id>
  145.     <filler1>0</filler1>
  146.     <bitmap>BMAP_6590.pbm</bitmap>
  147.     <cantDelete> <true /> </cantDelete>
  148.     <showPict> <true /> </showPict>
  149.     <dontSearch> <false /> </dontSearch>
  150.     <owner>2719</owner>
  151.     <link rel="stylesheet" type="text/css" href="stylesheet_3300.css" />
  152.     <part>
  153.         <id>1</id>
  154.         <type>button</type>
  155.         <visible> <true /> </visible>
  156.         <reserved5> 0 </reserved5>
  157.         <reserved4> 0 </reserved4>
  158.         <reserved3> 0 </reserved3>
  159.         <reserved2> 0 </reserved2>
  160.         <reserved1> 0 </reserved1>
  161.         <enabled> <true /> </enabled>
  162.         <rect>
  163.             <left>109</left>
  164.             <top>203</top>
  165.             <right>321</right>
  166.             <bottom>225</bottom>
  167.         </rect>
  168.         <style>rectangle</style>
  169.         <showName> <true /> </showName>
  170.         <highlight> <false /> </highlight>
  171.         <autoHighlight> <true /> </autoHighlight>
  172.         <sharedHighlight> <true /> </sharedHighlight>
  173.         <family>0</family>
  174.         <titleWidth>0</titleWidth>
  175.         <icon>0</icon>
  176.         <textAlign>center</textAlign>
  177.         <font>Chicago</font>
  178.         <textSize>12</textSize>
  179.         <textStyle>plain</textStyle>
  180.         <name>View Database Structure</name>
  181.         <script>on mouseUpsuperPalette "dbSchema"end mouseUp</script>
  182.     </part>
  183.     <part>
  184.         <id>2</id>
  185.         <type>field</type>
  186.         <visible> <true /> </visible>
  187.         <dontWrap> <false /> </dontWrap>
  188.         <dontSearch> <false /> </dontSearch>
  189.         <sharedText> <false /> </sharedText>
  190.         <fixedLineHeight> <true /> </fixedLineHeight>
  191.         <autoTab> <false /> </autoTab>
  192.         <lockText> <false /> </lockText>
  193.         <rect>
  194.             <left>18</left>
  195.             <top>61</top>
  196.             <right>422</right>
  197.             <bottom>196</bottom>
  198.         </rect>
  199.         <style>transparent</style>
  200.         <autoSelect> <false /> </autoSelect>
  201.         <showLines> <false /> </showLines>
  202.         <wideMargins> <false /> </wideMargins>
  203.         <multipleLines> <false /> </multipleLines>
  204.         <reservedFamily> 0 </reservedFamily>
  205.         <titleWidth>0</titleWidth>
  206.         <icon>0</icon>
  207.         <textAlign>left</textAlign>
  208.         <font>Geneva</font>
  209.         <textSize>9</textSize>
  210.         <textStyle>plain</textStyle>
  211.         <textHeight>12</textHeight>
  212.         <name></name>
  213.         <script></script>
  214.     </part>
  215.     <content>
  216.         <layer>card</layer>
  217.         <id>2</id>
  218.         <text><span class="style4">escription</span><span class="style2"></span><span class="style1">Easily view database .DBF files using a pop-up palette.  Just select a .DBF file and you'll see its structure.</span><span class="style4">About the View Database Structure Palette</span><span class="style1">To create a database quickly and easily, press the View Database Structure button below.  Up will pop the View Database palette (created using our very own SuperPalette product).  Click View DB to select a database. Does not allow for structure editing.</span><span class="style2">Warning: </span><span class="style1">This feature requires HyperCard 2.0 or greater and uses the  HyperCard 2.X XCMD interface.</span></text>
  219.     </content>
  220.     <name>view database</name>
  221.     <script>on closeCardif there is a window "dbSchema" thenclose window "dbSchema"end ifpass closeCardend closeCardon viewDBset cursor to 4answer file "Select database to view:" of type "F+DB"if it is empty then exit viewDBset cursor to 4put dbUse(it) into dbResultdbcheckResult dbResultset the fieldList of window "dbSchema" to dbListFields()set the filespec of window "dbSchema" to itput dbCloseAll() into dbResultend viewDBon suspendStackif there is a window "dbSchema" thenhide window "dbSchema"end ifpass suspendStackend suspendStackon resumeStackif there is a window "dbSchema" thenshow window "dbSchema"end ifpass resumeStackend resumeStack</script>
  222. </card>
  223.  
  224.  
  225. card_4240.xml
  226. <?xml version="1.0" encoding="utf-8" ?>
  227. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  228. <card>
  229.     <id>4240</id>
  230.     <filler1>0</filler1>
  231.     <bitmap>BMAP_4600.pbm</bitmap>
  232.     <cantDelete> <true /> </cantDelete>
  233.     <showPict> <true /> </showPict>
  234.     <dontSearch> <false /> </dontSearch>
  235.     <owner>2719</owner>
  236.     <link rel="stylesheet" type="text/css" href="stylesheet_3300.css" />
  237.     <part>
  238.         <id>1</id>
  239.         <type>field</type>
  240.         <visible> <true /> </visible>
  241.         <dontWrap> <false /> </dontWrap>
  242.         <dontSearch> <false /> </dontSearch>
  243.         <sharedText> <false /> </sharedText>
  244.         <fixedLineHeight> <true /> </fixedLineHeight>
  245.         <autoTab> <false /> </autoTab>
  246.         <lockText> <false /> </lockText>
  247.         <rect>
  248.             <left>18</left>
  249.             <top>61</top>
  250.             <right>422</right>
  251.             <bottom>196</bottom>
  252.         </rect>
  253.         <style>transparent</style>
  254.         <autoSelect> <false /> </autoSelect>
  255.         <showLines> <false /> </showLines>
  256.         <wideMargins> <false /> </wideMargins>
  257.         <multipleLines> <false /> </multipleLines>
  258.         <reservedFamily> 0 </reservedFamily>
  259.         <titleWidth>0</titleWidth>
  260.         <icon>0</icon>
  261.         <textAlign>left</textAlign>
  262.         <font>Geneva</font>
  263.         <textSize>9</textSize>
  264.         <textStyle>plain</textStyle>
  265.         <textHeight>12</textHeight>
  266.         <name></name>
  267.         <script></script>
  268.     </part>
  269.     <part>
  270.         <id>2</id>
  271.         <type>button</type>
  272.         <visible> <true /> </visible>
  273.         <reserved5> 0 </reserved5>
  274.         <reserved4> 0 </reserved4>
  275.         <reserved3> 0 </reserved3>
  276.         <reserved2> 0 </reserved2>
  277.         <reserved1> 0 </reserved1>
  278.         <enabled> <true /> </enabled>
  279.         <rect>
  280.             <left>109</left>
  281.             <top>203</top>
  282.             <right>321</right>
  283.             <bottom>225</bottom>
  284.         </rect>
  285.         <style>rectangle</style>
  286.         <showName> <true /> </showName>
  287.         <highlight> <false /> </highlight>
  288.         <autoHighlight> <true /> </autoHighlight>
  289.         <sharedHighlight> <true /> </sharedHighlight>
  290.         <family>0</family>
  291.         <titleWidth>0</titleWidth>
  292.         <icon>0</icon>
  293.         <textAlign>center</textAlign>
  294.         <font>Chicago</font>
  295.         <textSize>12</textSize>
  296.         <textStyle>plain</textStyle>
  297.         <name>Create Database</name>
  298.         <script>on mouseUpsuperPalette "dbCreate"set the fieldLength of window "dbCreate" to "8"set the fieldDecimals of window "dbCreate" to "2"end mouseUp</script>
  299.     </part>
  300.     <content>
  301.         <layer>card</layer>
  302.         <id>1</id>
  303.         <text><span class="style4">escription</span><span class="style2"></span><span class="style1">Easily create new database .DBF files using a pop-up palette.  Just fill in the form and a new database file will be generated.</span><span class="style4">About the Create Database Palette</span><span class="style1">To create a database quickly and easily, press the Create Database button below.  Up will pop the Create Database palette (created using our very own SuperPalette product). </span><span class="style2">Warning: </span><span class="style1">This feature requires HyperCard 2.0 or greater and uses the  HyperCard 2.X XCMD interface.</span></text>
  304.     </content>
  305.     <name>create Database</name>
  306.     <script>on closeCardif there is a window "dbCreate" thenif theFields of window "dbCreate" is not empty thenanswer "Create database?" with "No" or "Create DB"if it is "Create DB" then createDBend ifclose window "dbCreate"end ifpass closeCardend closeCardon suspendStackif there is a window "dbCreate" thenhide window "dbCreate"end ifpass suspendStackend suspendStackon resumeStackif there is a window "dbCreate" thenshow window "dbCreate"end ifpass resumeStackend resumeStackon nameFieldask "Please enter a new field name:" with ¬¨the fieldName of window "dbCreate"if it is empty then exit nameFieldset cursor to 4repeat with i = 1 to the number of chars of itif char i of it is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" thenanswer "Invalid field name.  FileFlex fields may only have" &&¬¨"the characters A-Z and 0-9."exit nameFieldend ifend repeatput theFields of window "dbCreate" into theFieldsrepeat with i = 1 to the number of lines of theFieldsif it = item 1 of line i of theFields thenanswer "Duplicate field name."exit nameFieldend ifend repeatset the fieldName of window "dbCreate" to itend nameFieldon setFieldLengthput the fieldType of window "dbCreate" into fieldTypeif fieldType is "Character" or fieldType is "Numeric" thenask "Please enter the field length (max 254):" with ¬¨the fieldLength of window "dbCreate"if it is empty then exit setFieldLengthset cursor to 4if it > 254 thenanswer "Maximum field length is 254."put 254 into itend ifset the fieldLength of window "dbCreate" to itelseanswer "There is no need to set the field length of a" &&¬¨fieldType && "field."end ifend setFieldLengthon setFieldDecimalsput the fieldType of window "dbCreate" into fieldTypeif fieldType is "Numeric" thenask "Please enter the precision (max 16):" with ¬¨the fieldDecimals of window "dbCreate"if it is empty then exit setFieldDecimalsset cursor to 4if it > 16 thenanswer "Maximum field length is 16."put 16 into itend ifset the fieldDecimals of window "dbCreate" to itelseanswer "There is no need to set the precision of a" &&¬¨fieldType && "field."end ifend setFieldDecimalson fieldType optionset cursor to 4if option is "Memo" or option is "Logical" or option is "Date" thenset the fieldLength of window "dbCreate" to "N/A"set the fieldDecimals of window "dbCreate" to "N/A"end ifif option is "Character" thenset the fieldDecimals of window "dbCreate" to "N/A"if the fieldLength of window "dbCreate" is "N/A" or¬¨the fieldLength of window "dbCreate" is empty thenset the fieldLength of window "dbCreate" to "10"end ifend ifif option is "Numeric" thenif the fieldLength of window "dbCreate" is "N/A" or¬¨the fieldLength of window "dbCreate" is empty thenset the fieldLength of window "dbCreate" to "8"end ifif the fieldDecimals of window "dbCreate" is "N/A" or¬¨the fieldDecimals of window "dbCreate" is empty thenset the fieldDecimals of window "dbCreate" to "2"end ifend ifend fieldTypeon addFieldset the lockScreen of window "dbCreate" to trueif the fieldName of window "dbCreate" is empty thenanswer "You must choose a field name."exit addFieldend ifput the fieldName of window "dbCreate" into schemaLineput the fieldType of window "dbCreate" into typespecput schemaLine & "," & char 1 of typeSpec into schemaLineif typespec is "Character" thenput schemaLine & "," & the fieldLength of window "dbCreate" into schemaLineend ifif typespec is "Numeric" thenput schemaLine & "," & the fieldLength of window "dbCreate" into schemaLineput schemaLine & "," & the fieldDecimals of window "dbCreate" into schemaLineend ifif theFields of window "dbCreate" is empty thenset theFields of window "dbCreate" to schemaLineelseset theFields of window "dbCreate" to ¬¨(theFields of window "dbCreate" & return & schemaLine)end ifset the fieldName of window "dbCreate" to emptyset the fieldType of window "dbCreate" to "Numeric"set the fieldLength of window "dbCreate" to 8set the fieldDecimals of window "dbCreate" to 2set the lockScreen of window "dbCreate" to falseend addFieldon theFields m,nset cursor to 4get theFields of window "dbCreate"put line n of it into schemaLineif line n of it is empty thenset the fieldName of window "dbCreate" to emptyset the fieldType of window "dbCreate" to "Numeric"set the fieldLength of window "dbCreate" to 8set the fieldDecimals of window "dbCreate" to 2exit theFieldsend ifset the fieldName of window "dbCreate" to item 1 of schemaLineput item 2 of schemaLine into typeSpecif typeSpec is "C" thenset the fieldType of window "dbCreate" to "Character"put item 3 of typeSpec into fooset the fieldLength of window "dbCreate" to item 3 of schemaLineset the fieldDecimals of window "dbCreate" to "N/A"else if typeSpec is "N" thenput item 3 of typeSpec into fooput item 4 of typeSpec into barset the fieldType of window "dbCreate" to "Numeric"set the fieldLength of window "dbCreate" to item 3 of schemaLineset the fieldDecimals of window "dbCreate" to item 4 of schemaLineelse if typeSpec is "L" thenset the fieldType of window "dbCreate" to "Logical"set the fieldLength of window "dbCreate" to "N/A"set the fieldDecimals of window "dbCreate" to "N/A"else if typeSpec is "M" thenset the fieldType of window "dbCreate" to "Memo"set the fieldLength of window "dbCreate" to "N/A"set the fieldDecimals of window "dbCreate" to "N/A"else if typeSpec is "D" thenset the fieldType of window "dbCreate" to "Date"set the fieldLength of window "dbCreate" to "N/A"set the fieldDecimals of window "dbCreate" to "N/A"end ifend theFieldson deleteFieldget the fields of window "dbCreate"get line 1 of it -- info for list fieldput item 7 of it into selectedLineif selectedLine is 0 thenanswer "Nothing to delete."exit deleteFieldend ifput theFields of window "dbCreate" into fieldListdelete line selectedLine of fieldListset theFields of window "dbCreate" to fieldListset the fieldName of window "dbCreate" to emptyset the fieldType of window "dbCreate" to "Numeric"set the fieldLength of window "dbCreate" to 8set the fieldDecimals of window "dbCreate" to 2end deleteFieldon createDBset cursor to 4put theFields of window "dbCreate" into fieldListif fieldList is empty thenanswer "Please define some fields first."exit createDBend if-- clear any accidentally created empty linesput fieldList into testListput empty into fieldListrepeat with i = 1 to the number of lines of testListif line i of testList is not empty thenif fieldList is empty thenput line i of testList into fieldListelseput return & line i of testList after fieldListend ifend ifend repeatask file "Name of new database:"if it is empty then exit createDBput it into fileSpecput the number of chars of fileSpec into cntput char cnt-3 to cnt of fileSpec into testDBFif testDBF=".DBF" or testDBF=".DBT" thendelete char cnt-3 to cnt of fileSpecend ifput the number of lines of fieldList into numFieldsput there is a file (fileSpec & ".DBF") into fooif there is a file (fileSpec & ".DBF") thenanswer "A database by that name already exists."exit createDBend ifput dbCreate(fileSpec,numFields,fieldList,"true") into dbResultif dbResult < 0 thendbCheckResult dbResultelseanswer "Database successfully created."end ifput dbCloseAll() into dbResultend createDb</script>
  307. </card>
  308.  
  309.  
  310. card_2981.xml
  311. <?xml version="1.0" encoding="utf-8" ?>
  312. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  313. <card>
  314.     <id>2981</id>
  315.     <filler1>0</filler1>
  316.     <bitmap>BMAP_3809.pbm</bitmap>
  317.     <cantDelete> <true /> </cantDelete>
  318.     <showPict> <true /> </showPict>
  319.     <dontSearch> <false /> </dontSearch>
  320.     <owner>2719</owner>
  321.     <link rel="stylesheet" type="text/css" href="stylesheet_3300.css" />
  322.     <part>
  323.         <id>1</id>
  324.         <type>button</type>
  325.         <visible> <true /> </visible>
  326.         <reserved5> 0 </reserved5>
  327.         <reserved4> 0 </reserved4>
  328.         <reserved3> 0 </reserved3>
  329.         <reserved2> 0 </reserved2>
  330.         <reserved1> 0 </reserved1>
  331.         <enabled> <true /> </enabled>
  332.         <rect>
  333.             <left>113</left>
  334.             <top>64</top>
  335.             <right>325</right>
  336.             <bottom>86</bottom>
  337.         </rect>
  338.         <style>rectangle</style>
  339.         <showName> <true /> </showName>
  340.         <highlight> <false /> </highlight>
  341.         <autoHighlight> <true /> </autoHighlight>
  342.         <sharedHighlight> <true /> </sharedHighlight>
  343.         <family>0</family>
  344.         <titleWidth>0</titleWidth>
  345.         <icon>0</icon>
  346.         <textAlign>center</textAlign>
  347.         <font>Chicago</font>
  348.         <textSize>12</textSize>
  349.         <textStyle>plain</textStyle>
  350.         <name>Create Database Palette</name>
  351.         <script>on mouseUpgo card "create database"end mouseUp</script>
  352.     </part>
  353.     <part>
  354.         <id>2</id>
  355.         <type>button</type>
  356.         <visible> <true /> </visible>
  357.         <reserved5> 0 </reserved5>
  358.         <reserved4> 0 </reserved4>
  359.         <reserved3> 0 </reserved3>
  360.         <reserved2> 0 </reserved2>
  361.         <reserved1> 0 </reserved1>
  362.         <enabled> <true /> </enabled>
  363.         <rect>
  364.             <left>113</left>
  365.             <top>147</top>
  366.             <right>325</right>
  367.             <bottom>169</bottom>
  368.         </rect>
  369.         <style>rectangle</style>
  370.         <showName> <true /> </showName>
  371.         <highlight> <false /> </highlight>
  372.         <autoHighlight> <true /> </autoHighlight>
  373.         <sharedHighlight> <true /> </sharedHighlight>
  374.         <family>0</family>
  375.         <titleWidth>0</titleWidth>
  376.         <icon>0</icon>
  377.         <textAlign>center</textAlign>
  378.         <font>Chicago</font>
  379.         <textSize>12</textSize>
  380.         <textStyle>plain</textStyle>
  381.         <name>Smart Fields</name>
  382.         <script>on mouseUpgo card "smart fields"end mouseUp</script>
  383.     </part>
  384.     <part>
  385.         <id>4</id>
  386.         <type>button</type>
  387.         <visible> <true /> </visible>
  388.         <reserved5> 0 </reserved5>
  389.         <reserved4> 0 </reserved4>
  390.         <reserved3> 0 </reserved3>
  391.         <reserved2> 0 </reserved2>
  392.         <reserved1> 0 </reserved1>
  393.         <enabled> <true /> </enabled>
  394.         <rect>
  395.             <left>424</left>
  396.             <top>242</top>
  397.             <right>448</right>
  398.             <bottom>264</bottom>
  399.         </rect>
  400.         <style>opaque</style>
  401.         <showName> <false /> </showName>
  402.         <highlight> <false /> </highlight>
  403.         <autoHighlight> <true /> </autoHighlight>
  404.         <sharedHighlight> <true /> </sharedHighlight>
  405.         <family>0</family>
  406.         <titleWidth>0</titleWidth>
  407.         <icon>21847</icon>
  408.         <textAlign>center</textAlign>
  409.         <font>Chicago</font>
  410.         <textSize>12</textSize>
  411.         <textStyle>plain</textStyle>
  412.         <name>New Button</name>
  413.         <script>on mouseUpgo homeend mouseUp</script>
  414.     </part>
  415.     <part>
  416.         <id>5</id>
  417.         <type>button</type>
  418.         <visible> <true /> </visible>
  419.         <reserved5> 0 </reserved5>
  420.         <reserved4> 0 </reserved4>
  421.         <reserved3> 0 </reserved3>
  422.         <reserved2> 0 </reserved2>
  423.         <reserved1> 0 </reserved1>
  424.         <enabled> <true /> </enabled>
  425.         <rect>
  426.             <left>113</left>
  427.             <top>188</top>
  428.             <right>325</right>
  429.             <bottom>210</bottom>
  430.         </rect>
  431.         <style>rectangle</style>
  432.         <showName> <true /> </showName>
  433.         <highlight> <false /> </highlight>
  434.         <autoHighlight> <true /> </autoHighlight>
  435.         <sharedHighlight> <true /> </sharedHighlight>
  436.         <family>0</family>
  437.         <titleWidth>0</titleWidth>
  438.         <icon>0</icon>
  439.         <textAlign>center</textAlign>
  440.         <font>Chicago</font>
  441.         <textSize>12</textSize>
  442.         <textStyle>plain</textStyle>
  443.         <name>Full-Text Error Messages</name>
  444.         <script>on mouseUpgo card "full text error messages"end mouseUp</script>
  445.     </part>
  446.     <part>
  447.         <id>6</id>
  448.         <type>button</type>
  449.         <visible> <true /> </visible>
  450.         <reserved5> 0 </reserved5>
  451.         <reserved4> 0 </reserved4>
  452.         <reserved3> 0 </reserved3>
  453.         <reserved2> 0 </reserved2>
  454.         <reserved1> 0 </reserved1>
  455.         <enabled> <true /> </enabled>
  456.         <rect>
  457.             <left>113</left>
  458.             <top>106</top>
  459.             <right>325</right>
  460.             <bottom>128</bottom>
  461.         </rect>
  462.         <style>rectangle</style>
  463.         <showName> <true /> </showName>
  464.         <highlight> <false /> </highlight>
  465.         <autoHighlight> <true /> </autoHighlight>
  466.         <sharedHighlight> <true /> </sharedHighlight>
  467.         <family>0</family>
  468.         <titleWidth>0</titleWidth>
  469.         <icon>0</icon>
  470.         <textAlign>center</textAlign>
  471.         <font>Chicago</font>
  472.         <textSize>12</textSize>
  473.         <textStyle>plain</textStyle>
  474.         <name>View Database Palette</name>
  475.         <script>on mouseUpgo card "view database"end mouseUp</script>
  476.     </part>
  477.     <name>goodies menu</name>
  478.     <script></script>
  479. </card>
  480.  
  481.  
  482.